arccotq 1=4floorp+Arccotqa

arcsecq 1={+/-(Arccscda-2) if |a|>=1,[-1,1] if a=1,[3,5] if a=-1}+8floorp

arccscq 1={2+/-(Arccscda-2) if |a|>=1,[1,3] if a=1,[5,7] if a=-1}+8floorp

arctanq 1=4floorp+Arctanqa

arccosq 1={+/-(a-2) if -1<=a<=1,[-1,1] if a=1,[3,5] if a=-1}+8floorp

arcsinq 1={2+/-(a-2) if -1<=a<=1,[1,3] if a=1,[5,7] if a=-1}+8floorp

Arccotq 1=inter([-2,2],{1/a if |a|>1,-a-2 if -1<a<=0,-a+2 if 0<a<1})

Arcsecq 1=inter([1,3],{(2a-1)/a if |a|>=1})

Arccscq 1=inter([-1,1],{1/a if |a|>=1})

Arctanq 1=inter([-2,2],{(2*|a|-1)/a if |a|>1,a if |a|<=1})

Arccosq 1={2-a if -1<=a<=1}

Arcsinq 1={a if -1<=a<=1}

arccotd 1=2floorv+Arccotda

arcsecd 1=4floor(floor(p)/2)+(evenfp)Arcsecda

arccscd 1=2floorp+(evenfp)Arccscda

arctand 1=2floorv+Arctanda

arccosd 1=4floor(floor(p)/2)+(evenfp)Arccosda

arcsind 1=2floorp+(evenfp)Arcsinda

Arccotd 1=inter([-1,1],{1/(a-1) if a<=0,1/(a+1) if a>=0})

Arcsecd 1=inter([0,2],{(a-1)/a if |a|>=1})

Arccscd 1=inter([-1,1],{1/a if |a|>=1})

Arctand 1=a/(1+|a|)

Arccosd 1={1-a if -1<=a<=1}

Arcsind 1={a if -1<=a<=1}

MOD 2=inter([0,|b|],a-|b|floor(a/|b|))

trunc 1={ceila if a<-0.5,0 if -0.5<a<0.5,floora if a>0.5}

round 1=ceil(a-0.5)

Round 1=floor(a+0.5)

arccsch 1=Arccscha

arcsech 1={1,-1}Arcsecha

arccoth 1=Arccotha

arctanh 1=Arctanha

arccosh 1={1,-1}Arccosha

arcsinh 1=Arcsinha

Arccsch 1=(sgna)ln(1+sqrt(1+aa))/|a|

Arcsech 1=ln(1+sqrt(1-aa))/a

Arccoth 1=0.5ln(a+1)/(a-1)

Arctanh 1=0.5ln(1+a)/(1-a)

Arccosh 1={ln(a+sqrt(aa-1)) if a>1}

Arcsinh 1={ln(a+sqrt(aa+1)) if a>=0,-ln(-a+sqrt(aa+1)) if a<=0}

coth 1=1/tanha

tanh 1=inter(dos(e^[2a],1),dos(1,e^[-2a]))

dos 2=(a-b)/(a+b)

sech 1=1/cosha

csch 1=1/sinha

cosh 1=.5(e^a+e^-a)

sinh 1=0.5(e^a-e^-a)

arccsc 1=~pfloorp+(evenfp)Arccsca

arcsec 1=2~pfloor(floor(p)/2)+(evenfp)Arcseca

arccos 1=2~pfloor(floor(p)/2)+(evenfp)Arccosa

arcsin 1=~pfloorp+(evenfp)Arcsina

arccot 1=~pfloorp+Arccota

arctan 1=~pfloorv+Arctana

lg 1=log_2a

ln 1=log_ea

Arcsec 1={Arccos1/a if |a|>=1}

Arccos 1=2Arctansqrt((1-a)/(1+a))

Arccsc 1={Arcsin1/a if |a|>=1}

Arcsin 1=Arctana/sqrt(1-aa)

Arccot 1=Arctan1/a

cscq 1=1/sinqa

secq 1=1/cosqa

cotq 1=(cosqa)/sinqa

tanq 1=(sinqa)/cosqa

cscd 1=1/sinda

secd 1=1/cosda

cotd 1=(cosda)/sinda

tand 1=(sinda)/cosda

csc 1=1/sina

sec 1=1/cosa

cot 1=(cosa)/sina

tan 1=(sina)/cosa

72